Sub Validate__Numeric__Input (p_Min, p_Max)
	Dim pControl
	Set pControl = ThisEvent.Object

	Dim varValue
	varValue = pControl.Value

	If IsNull(p_Min) Then
		If CDbl(varValue) > p_Max Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value less than or equal to " & p_Max
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif IsNull(p_Max) Then
		If CDbl(varValue) < p_Min Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value greater than or equal to " & p_Min
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif (CDbl(varValue) < CDbl(p_Min) Or CDbl(varValue) > p_Max) Then
		ThisEvent.Result = False
		ThisEvent.MessageText = "Please enter a value between " & p_Min & " and " & p_Max
		ThisEvent.MessageType = vbExclamation
	End If

	Set pControl = Nothing
End Sub

Sub Validate__Numeric__Input (p_Min, p_Max)
	Dim pControl
	Set pControl = ThisEvent.Object

	Dim varValue
	varValue = pControl.Value

	If IsNull(p_Min) Then
		If CDbl(varValue) > p_Max Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value less than or equal to " & p_Max
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif IsNull(p_Max) Then
		If CDbl(varValue) < p_Min Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value greater than or equal to " & p_Min
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif (CDbl(varValue) < CDbl(p_Min) Or CDbl(varValue) > p_Max) Then
		ThisEvent.Result = False
		ThisEvent.MessageText = "Please enter a value between " & p_Min & " and " & p_Max
		ThisEvent.MessageType = vbExclamation
	End If

	Set pControl = Nothing
End Sub

Sub Validate__Numeric__Input (p_Min, p_Max)
	Dim pControl
	Set pControl = ThisEvent.Object

	Dim varValue
	varValue = pControl.Value

	If IsNull(p_Min) Then
		If CDbl(varValue) > p_Max Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value less than or equal to " & p_Max
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif IsNull(p_Max) Then
		If CDbl(varValue) < p_Min Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value greater than or equal to " & p_Min
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif (CDbl(varValue) < CDbl(p_Min) Or CDbl(varValue) > p_Max) Then
		ThisEvent.Result = False
		ThisEvent.MessageText = "Please enter a value between " & p_Min & " and " & p_Max
		ThisEvent.MessageType = vbExclamation
	End If

	Set pControl = Nothing
End Sub

Sub Validate__Numeric__Input (p_Min, p_Max)
	Dim pControl
	Set pControl = ThisEvent.Object

	Dim varValue
	varValue = pControl.Value

	If IsNull(p_Min) Then
		If CDbl(varValue) > p_Max Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value less than or equal to " & p_Max
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif IsNull(p_Max) Then
		If CDbl(varValue) < p_Min Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value greater than or equal to " & p_Min
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif (CDbl(varValue) < CDbl(p_Min) Or CDbl(varValue) > p_Max) Then
		ThisEvent.Result = False
		ThisEvent.MessageText = "Please enter a value between " & p_Min & " and " & p_Max
		ThisEvent.MessageType = vbExclamation
	End If

	Set pControl = Nothing
End Sub

Sub Validate__Numeric__Input (p_Min, p_Max)
	Dim pControl
	Set pControl = ThisEvent.Object

	Dim varValue
	varValue = pControl.Value

	If IsNull(p_Min) Then
		If CDbl(varValue) > p_Max Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value less than or equal to " & p_Max
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif IsNull(p_Max) Then
		If CDbl(varValue) < p_Min Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value greater than or equal to " & p_Min
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif (CDbl(varValue) < CDbl(p_Min) Or CDbl(varValue) > p_Max) Then
		ThisEvent.Result = False
		ThisEvent.MessageText = "Please enter a value between " & p_Min & " and " & p_Max
		ThisEvent.MessageType = vbExclamation
	End If

	Set pControl = Nothing
End Sub

Sub Validate__Numeric__Input (p_Min, p_Max)
	Dim pControl
	Set pControl = ThisEvent.Object

	Dim varValue
	varValue = pControl.Value

	If IsNull(p_Min) Then
		If CDbl(varValue) > p_Max Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value less than or equal to " & p_Max
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif IsNull(p_Max) Then
		If CDbl(varValue) < p_Min Then
			ThisEvent.Result = False
			ThisEvent.MessageText = "Please enter a value greater than or equal to " & p_Min
			ThisEvent.MessageType = vbExclamation
		End If
		Set pControl = Nothing
		Exit Sub
	Elseif (CDbl(varValue) < CDbl(p_Min) Or CDbl(varValue) > p_Max) Then
		ThisEvent.Result = False
		ThisEvent.MessageText = "Please enter a value between " & p_Min & " and " & p_Max
		ThisEvent.MessageType = vbExclamation
	End If

	Set pControl = Nothing
End Sub